home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Whiteline: delta
/
whiteline CD Series - delta.iso
/
progtool
/
modula2
/
module
/
mindmach.def
< prev
next >
Wrap
Text File
|
1995-11-25
|
2KB
|
35 lines
(******************************************************************************)
(* This MODULE is Public Domain. Copy me like a beast! *)
(* Christian Ledermann *)
(* Wölfelkofen 2 *)
(* 84166 Adlkofen *)
(******************************************************************************)
(* *)
(* Started: 20.12.92 03:54:30 *)
(* Version: 20.12.89 00:384:12:54 *)
(* *)
(******************************************************************************)
(* *)
(* Diese Software ist ohne jede Garantie. Ich verspreche *)
(* keinerlei Wartung und übernehme keine Verantwortung für Schäden die *)
(* durch die Benutzung dieses Programmes entstehen. *)
(* Jegliche Ersatzansprüche lehne ich ab. *)
(* *)
(******************************************************************************)
DEFINITION MODULE MindMachine;
TYPE FrequenzGangARRAY = ARRAY [1..10] OF INTEGER;
VAR ResultArray: FrequenzGangARRAY ;
PROCEDURE Change(FreqGang :FrequenzGangARRAY );
PROCEDURE HaraldWessbacher;
PROCEDURE LutzMehlhorn;
PROCEDURE MidsummerNight;
PROCEDURE EarthHarmonie;
PROCEDURE RuhevolleWachheit;
PROCEDURE AllgBenutzung;
PROCEDURE Anregung;
END MindMachine.